program test
  implicit none
  
  real :: a, &
    cdd !test
  real :: cdd_n2, &
          cdd_n3 

  cdd = 2.9
  cdd_n3 = cdd 

  print *,cdd_n3
end program test